home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Resources.asm < prev    next >
Assembly Source File  |  1990-05-11  |  592b  |  35 lines
  1. *
  2. *    Resources.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Exec/Resources.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVOAddResource
  14.     XDEF    _AddResource
  15. _AddResource
  16.     move.l    4(sp),a1
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVOAddResource(a6)
  19.  
  20.     XREF    _LVOOpenResource
  21.     XDEF    _OpenResource
  22. _OpenResource
  23.     move.l    4(sp),a1
  24.     move.l    _AbsExecBase,a6
  25.     jmp    _LVOOpenResource(a6)
  26.  
  27.     XREF    _LVORemResource
  28.     XDEF    _RemResource
  29. _RemResource
  30.     move.l    4(sp),a1
  31.     move.l    _AbsExecBase,a6
  32.     jmp    _LVORemResource(a6)
  33.  
  34.     END
  35.